home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / convert [w]text (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  871b  |  24 lines
  1. 1 poke53280,0:poke53281,0:print"[147][158]"
  2. 2 print" [212]his program converts the [193][205][201][195][193]-[208][193][201][206][212]"
  3. 3 print" text-extension  routine, for  the use"
  4. 4 print" of expanded charactersets."
  5. 5 print" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 6 print"[154]  [201]nsert disk with the text-extension,"
  7. 7 print"  then press any key."
  8. 8 poke198,0:wait198,1:poke198,0
  9. 9 print"  [204]oading the text-extension.[144]"
  10. 10 sys57812"[w]text",8,1:poke780,0:sys65493
  11. 11 el=peek(174):eh=peek(175)
  12. 12 print:print"[154]  [195]onverting the text-extension."
  13. 13 f1=peek(16593):f3=peek(16603)
  14. 14 iff1=133andf3=134thenprint"    [212]his is already the new version. ":end
  15. 15 iff1<>166orf3<>220thenprint"    [212]his is not the text-extension. ":end
  16. 16 poke16593,133:poke16603,134
  17. 17 print"[154]  [201]nsert new disk, then press any key."
  18. 18 poke198,0:wait198,1:poke198,0
  19. 19 print"  [210]enaming old version."
  20. 20 open1,8,15,"r:[w]text.old=[w]text":close1
  21. 21 print"  [211]aving new version.[144]"
  22. 22 sys57812"[w]text",8:poke193,0:poke194,64:sys62957
  23. 23 print"[145][159]"
  24.